Monster Media 1996 #15/Monster Media Number 15 (Monster Media)(July 1996).ISO/tbbs/prgsourc.zip/HOMES.ZIP/SCREEN.PRG

Text File | 1996-01-13 | 11KB | 534 lines

**************************************************
PROCEDURE cls
PARAMETERS x,y,z,q


SET COLOR TO N/N
@ x,y CLEAR TO z,q
RETURN













**************************************************
PROCEDURE BoxW
PARAMETERS x,y,z,q

SET COLOR TO W/W
@ x,y CLEAR TO z,q
SET COLOR TO W+/W
@ x,y SAY "┌"
@ x,y+1 TO x,q
@ x,q SAY "┐"
@ x+1,y TO z,y
@ z,y SAY "└"
SET COLOR TO N/W
@ x+1,q TO z,q
@ z,y+1 TO z,q
@ z,q SAY "┘"
RETURN




**************************************************
PROCEDURE BoxB
PARAMETERS x,y,z,q

SET COLOR TO B/B
@ x,y CLEAR TO z,q
SET COLOR TO B+/B
@ x,y SAY "┌"
@ x,y+1 TO x,q                && Top
@ x,q SAY "┐"
@ x+1,y TO z,y                && Left Side
@ z,y SAY "└"
SET COLOR TO N/B
@ x+1,q TO z,q                && Right Side
@ z,y+1 TO z,q                && Bottom
@ z,q SAY "┘"
SET COLOR TO W+/B
RETURN



**************************************************
PROCEDURE BoxBG
PARAMETERS x,y,z,q

SET COLOR TO BG/BG
@ x,y CLEAR TO z,q
SET COLOR TO BG+/BG
@ x,y SAY "┌"
@ x,y+1 TO x,q
@ x,q SAY "┐"
@ x+1,y TO z,y
@ z,y SAY "└"
SET COLOR TO N/BG
@ x+1,q TO z,q
@ z,y+1 TO z,q
@ z,q SAY "┘"
RETURN




**************************************************
PROCEDURE ta                                     && Trailer Area list

SET COLOR TO GR+/R
@ 21,0 CLEAR TO 23,79
@ 21,3 SAY "<Enter>"
@ 21,45 SAY "Cursor Keys"
@ 22,3 SAY  "S"
@ 22,45 SAY "N"
@ 23,3 SAY  "D"
@ 23,45 SAY "?           <Esc>"
SET COLOR TO W+/R
@ 21,11 SAY "= Listings in highlited area"
@ 21,57 SAY "= Move highlite"
@ 22,5 SAY  "= Search, all areas"
@ 22,47 SAY "= New listings"
@ 23,5 SAY  "= Download tagged listings"
@ 23,47 SAY "= Help"
@ 23,63 SAY "= Quit"
RETURN

**************************************************
PROCEDURE tf                                    && Trailer Full Screen Edit

SET COLOR TO GR+/R
@ 21,3 CLEAR TO 23,79
@ 21,3 SAY  "Cursor Keys"
@ 21,50 SAY "<Enter>"
@ 22,3 SAY  "<Page Dn>"
SET COLOR TO W+/R
@ 21,15 SAY "= Move between/within fields"
@ 21,58 SAY "= Next field"
@ 22,13 SAY "= Finish entering data"
RETURN








**************************************************
PROCEDURE tl                                     && Trailer List

SET COLOR TO GR+/R
@ 21,0 CLEAR TO 23,79
@ 21,3 SAY  "<Enter>"
@ 21,48 SAY "T"
@ 22,3 SAY  "S"
@ 22,48 SAY "V"
@ 23,3 SAY  "D"
@ 23,48 SAY "?         <Esc>"
SET COLOR TO W+/R
@ 21,11 SAY "= View highlited listing"
@ 21,50 SAY "= Tag/Untag for download/view"
@ 22,5 SAY  "= Search in this area only"
@ 22,50 SAY "= View tagged listings"
@ 23,5 SAY  "= Download pictures of highlited listing"
@ 23,50 SAY "= Help"
@ 23,64 SAY "= Area Screen"
RETURN

**************************************************
PROCEDURE ts                                     && Trailer Scroll

SET COLOR TO GR+/R
@ 23,5 SAY "Up/Dn Arrow "
SET COLOR TO W+/R
@ 23,17 SAY "= Next/Previous Listing"
RETURN













**************************************************
PROCEDURE tt                                     && Trailer Tag and Download

SET COLOR TO GR+/R
@ 21,0 CLEAR TO 23,79
@ 21,5 SAY  "T"
@ 21,45 SAY "<Esc>"
SET COLOR TO W+/R
@ 21,7 SAY  "= Tag/Untag for Download"
@ 21,51 SAY "= Quit View Screen"
RETURN










**************************************************
PROCEDURE ty                                     && Trailer Yes - No

SET COLOR TO GR+/R
@ 21,3 CLEAR TO 23,79
@ 21,10 SAY "Y"
@ 22,10 SAY "N"
SET COLOR TO W+/R
@ 21,12 SAY "= yes"
@ 22,12 SAY "= no"
RETURN










****************************************************
PROCEDURE escr                                   && Edit screen
DO BoxBG WITH 5,18,17,50
@ 7,26 SAY  "] New Listing"
@ 9,26 SAY  "] Add Picture/Map"
@ 11,26 SAY "] Update"
@ 13,26 SAY "] Delete"
@ 15,26 SAY "] View and Tag"
SET COLOR TO BG+/BG
@ 7,24 SAY  "["
@ 9,24 SAY  "["
@ 11,24 SAY "["
@ 13,24 SAY "["
@ 15,24 SAY "["
SET COLOR TO GR+/BG
@ 7,25 SAY  "N"
@ 9,25 SAY  "P"
@ 11,25 SAY "U"
@ 13,25 SAY "D"
@ 15,25 SAY "V"
RETURN




****************************************************
PROCEDURE pscr                                   && Picture screen
DO BoxBG WITH 6,18,16,50
@ 8,26 SAY  "] Picture of Home"
@ 10,26 SAY "] Map of Property"
@ 12,26 SAY "] Floor Plan"
@ 14,26 SAY "] Interior Picture"
SET COLOR TO BG+/BG
@ 8,24 SAY  "["
@ 10,24 SAY "["
@ 12,24 SAY "["
@ 14,24 SAY "["
SET COLOR TO GR+/BG
@ 8,25 SAY  "P"
@ 10,25 SAY "M"
@ 12,25 SAY "F"
@ 14,25 SAY "I"
RETURN














*************************************************************
PROCEDURE e2scr                                  && 2nd Edit Screen

DO cls WITH 2,0,20,79
SET COLOR TO W+/W
@ 3,6 CLEAR TO 19,48
@ 3,6 SAY  "┌─────────────────────────────────────────┐"
@ 4,6 SAY  "│"
@ 5,6 SAY  "│"
@ 6,6 SAY  "├"
@ 7,6 TO 18,6
@ 11,6 SAY "├─────────────────────────────────────────"
@ 19,6 SAY "└"
@ 4,27 SAY pic1
@ 7,21 SAY area
@ 8,21 SAY sub
@ 9,21 SAY design
@ 10,21 SAY exterior
SET COLOR TO N/W
@ 4,48 TO 18,48
@ 4,7 SAY   "  Reference Number:"
@ 5,7 SAY   "  ( Please write this number down )"
@ 6,7 SAY   "─────────────────────────────────────────┤"
@ 7,8 SAY    "Area:"
@ 8,8 SAY    "Subdivision:"
@ 9,8 SAY    "Home Design:"
@ 10,8 SAY   "Exterior:"
@ 11,48 SAY                                          "┤"
@ 12,8 SAY   "Home Size? (sq. feet) [    ]"
@ 13,8 SAY   "Lot Size? (acres) [      ]"
@ 14,8 SAY   "Bedrooms? (1-9) [ ]"
@ 15,8 SAY   "Bathrooms? (.5 - 9.5) [   ]"
@ 16,8 SAY   "Number of Fireplaces? (0-9) [ ]"
@ 17,8 SAY   "Garage? [ ]"
@ 18,8 SAY   "Basement? [ ]"
@ 19,7 SAY  "─────────────────────────────────────────┘"
REPLACE beds WITH 1, baths WITH .5
RETURN




**************************************************
PROCEDURE sscr                                   && Search screen

DO cls WITH 2,0,20,79
SET COLOR TO R/R
@ 0,0 CLEAR TO 1,72
SET COLOR TO W+/R
@ 0,73 SAY "SEARCH"
SET COLOR TO GR+/R
@ 21,0 CLEAR TO 23,79
@ 21,3 SAY  "Cursor Keys"
@ 21,47 SAY "<Page Down>"
@ 22,3 SAY  "<Enter>"
@ 22,47 SAY "<Page Up>"
@ 23,3 SAY  "?"
@ 23,47 SAY "<Esc>"
SET COLOR TO W+/R
@ 21,15 SAY "= Move between/within fields"
@ 21,59 SAY "= Pick List"
@ 22,11 SAY "= Next field"
@ 22,57 SAY "= Search, View matches"
@ 23,5 SAY  "= Help"
@ 23,53 SAY "= Quit Search Screen"
SET COLOR TO BG+/BG
@ 3,6 CLEAR TO 18,48
@ 3,6 SAY "┌─────────────────────────────────────────┐"
@ 4,6 TO 17,6
@ 7,6 SAY "├"
@ 12,6 SAY "├─────────────────────────────────────────"
@ 18,6 SAY "└"
SET COLOR TO N/BG
@ 4,48 TO 17,48
@ 4,8 SAY  "Maximum Price:"
@ 5,8 SAY  "Subdivision:  [                      ]"
@ 6,8 SAY  "Home Design:  [               ]"
@ 7,7 SAY "─────────────────────────────────────────┤"
SET COLOR TO GR+/BG
@ 8,8 SAY  "Minimum"
@ 13,8 SAY "Require"
SET COLOR TO N/BG
@ 8,16 SAY         "Home Size:"
@ 9,8 SAY  "        Lot Size:"
@ 10,8 SAY "        Bedrooms:"
@ 11,8 SAY "        Baths:"
@ 12,48 SAY "┤"
@ 13,16 SAY        "Heat Pump?"
@ 14,8 SAY "        Basement?"
@ 15,8 SAY "        Fireplace?"
@ 16,8 SAY "        Garage?"
@ 17,8 SAY "        Central Air?"
@ 18,7 SAY "─────────────────────────────────────────┘"
RETURN




*******************************************************
PROCEDURE uscr                                   && Update Screen

SET COLOR TO W+/R
@ 0,73 SAY "UPDATE"
DO cls WITH 2,0,20,79
SET COLOR TO BG/N
@ 3,3 SAY "Reference Number:"
@ 5,9 SAY "[       ] ( Options:                              )"
@ 7,10 SAY  "[        ]"
@ 9,16 SAY  "[ ]"
@ 10,14 SAY "[ ]"
@ 11,22 SAY "[          ]"
@ 12,3 SAY "  ( or backup to Heat Pump. If no backup, enter           )"
SET COLOR TO GR+/N
@ 3,21 SAY pic1
@ 5,30 SAY "Listed, Model, Pending, Sold"
@ 12,51 SAY "Heat Pump"
SET COLOR TO W+/N
@ 5,3 SAY  "Status:"
@ 7,3 SAY  "Price?"
@ 9,3 SAY  "Central Air?"
@ 10,3 SAY "Heat Pump?"
@ 11,3 SAY "Primary Heat Type?"
@ 15,2 SAY "┌"
@ 15,78 SAY "┐"
@ 16,2 TO 18,2
@ 16,78 TO 18,78
@ 19,2 SAY "└"
@ 19,78 SAY "┘"
RETURN











**************************************************
PROCEDURE vscr                                   && View screen

DO cls WITH 2,0,20,79
SET COLOR TO  W+/N
@ 5,45 SAY "Lot size:"
@ 6,8 SAY "Home size:"
@ 6,45 SAY "Exterior:"
@ 7,8 SAY "Bedrooms:"
@ 7,45 SAY "Garage:"
@ 8,8 SAY "Bathrooms:"
@ 8,45 SAY "Basement:"
@ 9,8 SAY "Heat Type:"
@ 9,45 SAY "Central Air:"
RETURN






**************************************************
PROCEDURE view

SET COLOR TO W+/R
@ 0,73 SAY "VIEW  "
@ 1,5 CLEAR TO 1,35
@ 1,8 SAY pic1

SET COLOR TO GR+/N
@ 3,8 SAY "$"
@ 3,9 SAY price PICTURE "@B 9,999,999"
@ 3,45 SAY design

IF status # "Listed"
        SET COLOR TO W+/N
        @ 3,19 SAY Upper(status)
ELSE
        @ 3,19 SAY "         "
ENDIF

IF sub = "..Not in Subdivision"
        SET COLOR TO W+/N
        @ 5,8 SAY "Not in Subdivision                 "
        SET COLOR TO BG/N
ELSE
        SET COLOR TO W+/N
        @ 5,8 SAY "Subdivision: "
        SET COLOR TO BG/N
        @ 5,21 SAY sub
ENDIF

@ 5,55 SAY acres PICTURE "@B 999.99"
@ 5,col() SAY "acres"
@ 6,19 SAY size
@ 6,Col()+1 SAY "square feet"
@ 6,55 SAY exterior
@ 7,18 SAY beds PICTURE "@B 9"

IF garage
   @ 7,53 SAY "Yes "
ELSE
   @ 7,53 SAY "None"
ENDIF

@ 8,19 SAY baths PICTURE "@Z 9"
IF IsInt(baths)
   @ 8,Col()+1 SAY "   "
ELSE
   @ 8,Col()+1 SAY "1/2"
ENDIF

IF basement
   @ 8,55 SAY "Yes "
ELSE
   @ 8,55 SAY "None"
ENDIF

IF heatpump
   @ 9,19 SAY "Heat Pump "
   SET COLOR TO W+/N
   @ 10,8 SAY "Backup Heat:"
   SET COLOR TO BG/N
   @ 10,21 SAY heat
ELSE
   @ 9,19 SAY heat
ENDIF

IF ac
   @ 9,58 SAY "Yes"
ELSE
   @ 9,58 SAY "No "
ENDIF

IF fireplace # 0
   SET COLOR TO W+/N
   @ 10,45 SAY "Fireplaces:"
   SET COLOR TO BG/N
   @ 10,57 SAY fireplace
ELSE
   SET COLOR TO N/N
   @ 10,45 CLEAR TO 10,59
   SET COLOR TO BG/N
ENDIF

@ 12,3 SAY memo1
@ 13,3 SAY memo2
@ 14,3 SAY memo3

SELECT c
SEEK a->broker
IF Found()
  SET COLOR TO W+/N
  @ 16,29 SAY agency
  @ 17,29 SAY address
  @ 18,29 SAY city
  @ 17,3 SAY uname
  SET COLOR TO BG/N
  @ 17,55 SAY phone1
  @ 18,3 SAY homeph
  @ 18,55 SAY phone2
ENDIF

SELECT a
RETURN